Top 10k strings from Music Composer (1982)(MiCROL).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 note subroutine
   1 music writer
   1 move right
   1 move cursor
   1 length=length+dl:
   1 length+dl>3
   1 length+dl<0
   1 last=last-1
   1 last=(cp-1
   1 get commands
   1 enter note
   1 dur,pitch:
   1 draw screen
   1 display page
   1 delete last
   1 d$=("00000000"+d$)((
   1 d$="1"+d$:
   1 d$="0"+d$:
   1 clear line
   1 change current length
   1 M.COMPOSER
   1 ;t$(length+5
   1 ;"play tape, then press any key":
   1 ;"current note = ";b$(length+1
   1 ;"STOP THE TAPE, THEN PRESS A KEY":
   1 ;"ENTER=NATURAL,  S=SHARP,  F=FLATJ=SHORTER,    K=LONGER,   R=REST"
   1 ;"0=DELETE, P=PLAY, L=LOAD, Z=SAVE"
   1 ;"    PAGE ";cp;
   1 '''"Music Composer 
   1 "name for saving: ";
   1 "name for loading: ";
   1  1982 MiCROL";